home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / pp / pp-6.0 / Src / submit / submit_prm.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-12-18  |  1.3 KB  |  78 lines
  1. /* submit_prm.c: read and process control switches */
  2.  
  3. # ifndef lint
  4. static char Rcsid[] = "@(#)$Header: /xtel/pp/pp-beta/Src/submit/RCS/submit_prm.c,v 6.0 1991/12/18 20:28:02 jpo Rel $";
  5. # endif
  6.  
  7. /*
  8.  * $Header: /xtel/pp/pp-beta/Src/submit/RCS/submit_prm.c,v 6.0 1991/12/18 20:28:02 jpo Rel $
  9.  *
  10.  * $Log: submit_prm.c,v $
  11.  * Revision 6.0  1991/12/18  20:28:02  jpo
  12.  * Release 6.0
  13.  *
  14.  */
  15.  
  16.  
  17.  
  18. #include "head.h"
  19. #include "prm.h"
  20. #include "q.h"
  21.  
  22.  
  23. extern void    err_abrt();
  24.  
  25.  
  26. /* -- local routines -- */
  27. int        rd_prm_info();
  28. int        rd_q_info();
  29.  
  30.  
  31.  
  32.  
  33. /* ---------------------  Begin  Routines  -------------------------------- */
  34.  
  35.  
  36.  
  37.  
  38. int rd_prm_info (prm)  /* -- read in a prm management structure -- */
  39. struct prm_vars         *prm;
  40. {
  41.     int             retval;
  42.  
  43.     PP_TRACE (("submit/rd_prm_info (prm)"));
  44.  
  45.     if (rp_isbad (retval = rd_prm (prm, stdin))) {
  46.         switch (retval) {
  47.         case RP_EOF:
  48.             break;
  49.         case RP_PARM:
  50.             err_abrt (RP_PARM, "Aborting message");
  51.         }
  52.     }
  53.     return (retval);
  54. }
  55.  
  56.  
  57.  
  58.  
  59. int rd_q_info (qp)  /* -- read in a queue structure -- */
  60. register Q_struct       *qp;
  61. {
  62.     int             retval;
  63.  
  64.     PP_TRACE (("submit/rd_q_info (qp)"));
  65.  
  66.     if (rp_isbad (retval = rd_q (qp, stdin))) {
  67.         switch (retval) {
  68.             case RP_EOF:
  69.             err_abrt (RP_EOF, "Can't read qstruct");
  70.             break;
  71.             case RP_PARM:
  72.             err_abrt (RP_PARM, "Aborting message");
  73.             break;
  74.         }
  75.     }
  76.     return (retval);
  77. }
  78.